Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1106 1843 (N55W12 L= 37)   678    104        2 (1054/1816-1156/1864)   9.5 W06-W18 N52-N57
      2 1043 1748 (N46W04 L= 29)   297     50        1 (1023/1729-1071/1767) -26.6 W02-W06 N44-N47
      3 1797 1418 (N21W61 L= 86)   417     76        1 (1762/1401-1832/1436)   0.0 W57-W67 N19-N22
      4  586 1378 (N20E28 L=357)   273    112        1 ( 564/1328- 621/1428)  71.6 E29-E25 N17-N23
      5  868 1379 (N19E09 L= 16)   259     72        0 ( 838/1342- 898/1407) -51.3 E11-E07 N16-N21
      6  170 1305 (N18E68 L=317)  1223    168        1 ( 142/1238- 193/1383)  90.0 E73-E64 N13-N23
      7  866 1316 (N15E09 L= 16)   392     93        1 ( 825/1293- 916/1343) -26.6 E11-E05 N13-N17
      8  344 1069 (N02E45 L=340)   586    146        1 ( 282/1028- 403/1118)  21.8 E50-E40 N00-N04
      9  246  758 (S16E58 L=327)  1432    323        2 ( 180/ 619- 326/ 887) -67.6 E63-E54 S24-S07
     10  340  725 (S18E50 L=335)   579     78        1 ( 299/ 700- 373/ 749)   8.1 E53-E46 S20-S16
     11 1111  631 (S27W05 L= 30)   235     78        0 (1070/ 617-1151/ 646) -11.3 W02-W07 S27-S26
     12  875  623 (S27E11 L= 14)   203     62        0 ( 845/ 611- 907/ 637)   0.0 E13-E08 S27-S26
     13 1573  609 (S29W39 L= 64)   283     77        1 (1552/ 572-1607/ 632)  36.9 W37-W42 S31-S27
     14 1204  336 (S49W14 L= 39)  1384    287        3 (1082/ 299-1319/ 375) -11.8 W02-W26 S52-S45
     15  904  320 (S49E14 L= 11)   356     63        2 ( 877/ 291- 926/ 345) -53.1 E15-E11 S51-S47
  

    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