Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1401 1648 (N39W27 L=256)  1960    285        4 (1287/1579-1535/1703) -22.8 W17-W37 N34-N43
      2  884 1533 (N27E12 L=217)   265     56        0 ( 851/1513- 919/1553) -14.0 E13-E09 N26-N28
      3  307 1497 (N25E59 L=170)  1705    165        4 ( 260/1431- 360/1549)  40.6 E65-E53 N19-N28
      4 1661 1419 (N24W44 L=273)   414     78        1 (1645/1383-1692/1460) -68.2 W42-W46 N21-N26
      5 1491 1163 (N06W29 L=258)   284     44        2 (1463/1140-1510/1193)  45.0 W26-W30 N05-N08
      6  229  969 (S09E57 L=172)   316     60        1 ( 212/ 942- 251/ 998) -36.9 E58-E54 S10-S06
      7  478  934 (S11E35 L=194)   421    132        0 ( 433/ 883- 515/ 991)  45.0 E38-E32 S13-S07
      8  337  878 (S14E47 L=182)   395     56        0 ( 310/ 854- 366/ 907) -36.9 E49-E44 S15-S12
      9  270  844 (S16E54 L=175)   484     93        1 ( 244/ 794- 287/ 888) -90.0 E56-E51 S19-S13
     10  903  788 (S19E07 L=222)   336    127        1 ( 858/ 758- 962/ 840)  39.8 E09-E03 S20-S15
     11 1703  760 (S16W49 L=278)   430     96        1 (1683/ 722-1731/ 799) -59.0 W46-W51 S18-S13
     12  448  622 (S30E42 L=187)  1186    198        5 ( 410/ 531- 497/ 711) -85.2 E44-E38 S36-S24
     13 1716  637 (S24W55 L=284)   591    104        3 (1688/ 585-1747/ 676)  80.5 W51-W57 S26-S20
     14 1348  598 (S29W25 L=254)   632    115        3 (1305/ 559-1378/ 652)  63.4 W21-W26 S31-S25
     15  205  618 (S30E73 L=156)   799     49        1 ( 184/ 591- 223/ 650)  20.0 E81-E68 S31-S27
     16 1105  594 (S30W07 L=236)   658    228        1 ( 999/ 574-1206/ 634)  13.0 W00-W14 S31-S27
     17  642  538 (S36E27 L=202)   435    134        1 ( 580/ 522- 704/ 558)  -5.7 E31-E21 S36-S34
     18  847  504 (S38E11 L=218)   236     64        1 ( 819/ 474- 871/ 533)  53.1 E13-E09 S39-S35
     19  573  287 (S56E49 L=180)   481     43        1 ( 548/ 268- 600/ 310)   9.5 E55-E43 S57-S53
  

    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