Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1332 1518 (N34W06 L=157)   235     40        0 (1317/1496-1345/1542)  76.0 W04-W07 N32-N36
      2 1735 1276 (N31W43 L=194)  1538    218        2 (1658/1230-1822/1343)   0.0 W34-W53 N28-N32
      3  279 1001 (S23E51 L=101)  1091    240        1 ( 240/ 906- 338/1088)  67.4 E54-E46 S28-S16
      4 1778 1045 (N18W50 L=201)   317     38        1 (1761/1021-1798/1063) -33.7 W47-W51 N16-N19
      5 1312  925 (S02W19 L=170)  1228    305        3 (1256/ 806-1350/1054) -50.7 W12-W22 S08-N03
      6 1232  740 (S14W20 L=171)   506    138        1 (1176/ 709-1295/ 775)  54.5 W17-W22 S17-S10
      7 1583  489 (S18W55 L=206)   550     94        0 (1532/ 473-1619/ 512)  38.7 W50-W58 S20-S16
      8 1038  471 (S36W18 L=170)   359     63        0 (1008/ 451-1075/ 494)   0.0 W15-W20 S37-S34
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y