Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1642 1516 (N44W29 L=207)   717    107        2 (1595/1478-1695/1546)   0.0 W24-W35 N42-N45
      2  267 1422 (S02E65 L=113)   837    118        2 ( 237/1384- 301/1472) -26.6 E70-E61 S03-N01
      3  246 1314 (S09E62 L=116)  1177    197        3 ( 121/1294- 294/1346)   9.2 E89-E56 S10-S05
      4  883 1242 (N02E14 L=164)   343     95        1 ( 829/1226- 926/1261)  31.0 E16-E11 N00-N03
      5  170 1214 (S16E69 L=109)  1659    148        0 (  99/1204- 249/1224)   1.8 E89-E57 S16-S14
      6 1795 1158 (N25W47 L=226)   934    126        4 (1761/1112-1850/1196)  41.6 W43-W54 N21-N29
      7  171 1080 (S23E65 L=113)  7680    440       11 (  82/ 992- 256/1191) -90.0 E89-W00 S29-S15
      8  892  907 (S16E04 L=174)   308    134        1 ( 860/ 865- 931/ 961)  81.9 E05-E02 S19-S12
      9  176  921 (S33E64 L=114)  2051    409        3 (  86/ 875- 268/ 946)  -1.5 E89-E51 S34-S29
     10  345  861 (S33E43 L=136)   996    188        2 ( 309/ 785- 405/ 926)  48.0 E46-E37 S38-S28
     11  452  843 (S32E32 L=146)   438     80        0 ( 424/ 810- 490/ 877) -31.0 E34-E28 S33-S29
     12  211  840 (S38E59 L=119)   959    212        1 (  98/ 792- 261/ 874)  -3.5 E89-E52 S39-S34
     13  542  796 (S32E24 L=154)   608     98        0 ( 489/ 773- 589/ 826)  35.5 E28-E21 S34-S29
     14 1052  791 (S18W08 L=186)   214    104        0 (1005/ 779-1102/ 813)  45.0 W05-W10 S20-S15
     15 1118  686 (S22W16 L=194)   907    292        0 (1085/ 600-1199/ 761)  90.0 W12-W21 S26-S15
  

    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