Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1499 1567 (N21W49 L=208)  1087    202        2 (1425/1510-1594/1597) -14.9 W40-W55 N17-N23
      2 1085 1532 (N33W20 L=180)   421    102        0 (1043/1509-1137/1552)  -7.1 W16-W24 N31-N33
      3  627 1378 (N37E15 L=144)   286     48        1 ( 593/1364- 665/1394) -26.6 E18-E12 N35-N38
      4 1723 1319 (N01W53 L=213)   848    141        0 (1697/1246-1753/1379)  66.8 W51-W55 S03-N04
      5 1764 1035 (S15W47 L=207)   364    114        0 (1752/ 977-1779/1092)  63.4 W44-W49 S18-S11
      6  131  896 (N19E73 L= 87)   719     78        2 ( 112/ 851- 145/ 928) -90.0 E76-E70 N15-N20
      7 1255  761 (S15W06 L=166)   601    277        2 (1183/ 679-1318/ 833)  26.6 W00-W11 S18-S11
      8  801  652 (S09E23 L=137)   951    315        0 ( 719/ 525- 870/ 773)  86.6 E24-E21 S17-N00
      9 1749  650 (S39W42 L=201)  1314    179        3 (1708/ 580-1811/ 712)  24.4 W37-W49 S43-S36
     10 1593  582 (S38W25 L=185)   460     86        1 (1567/ 545-1617/ 623)  38.7 W22-W27 S39-S35
     11 1291  538 (S30W02 L=162)   436    105        0 (1236/ 520-1341/ 564) -26.6 E01-W05 S31-S27
     12  730  481 (S17E34 L=126)   762    189        2 ( 670/ 449- 790/ 540) -39.8 E37-E28 S19-S14
     13  950  328 (S34E28 L=132)   811    121        2 ( 913/ 266- 978/ 379)  45.0 E32-E24 S38-S29
  

    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