Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1429 1783 (N38W63 L=303)   950    140        1 (1379/1742-1484/1805)  -3.2 W54-W72 N34-N39
      2 1707 1478 (N12W60 L=300)  1502    247        3 (1595/1439-1804/1530) -36.9 W52-W69 N06-N18
      3 1004 1351 (N26W08 L=247)   704    203        3 ( 910/1304-1088/1408) -51.3 W02-W11 N21-N31
      4 1883 1278 (S04W70 L=309)   736     98        1 (1861/1236-1896/1325)  15.3 W64-W75 S06-S02
      5 1045 1250 (N19W07 L=246)   434    168        2 ( 965/1218-1123/1271) -11.3 W01-W11 N17-N20
      6 1599 1136 (S02W37 L=276)   705    149        1 (1574/1047-1624/1203)  54.5 W33-W40 S06-N01
      7 1060 1068 (N09W03 L=242)   283    131        0 (1025/1009-1095/1131)  39.8 W00-W06 N06-N11
      8  315 1060 (N24E47 L=192)   325     60        2 ( 283/1036- 341/1079) -38.7 E50-E44 N22-N26
      9  257  903 (N16E55 L=184)   546    101        0 ( 226/ 856- 283/ 942) -51.3 E58-E53 N12-N18
     10 1852  865 (S26W55 L=294)   797     89        1 (1804/ 846-1896/ 887) -21.0 W48-W61 S28-S22
     11  456  836 (N09E39 L=200)   388     87        0 ( 426/ 792- 483/ 875) -78.7 E40-E37 N06-N11
     12  184  808 (N11E67 L=173)   981    107        4 ( 164/ 753- 209/ 852)  63.4 E70-E62 N07-N13
     13  233  784 (N09E61 L=178)   527     62        2 ( 204/ 756- 266/ 804) -15.9 E64-E57 N07-N10
     14 1156  537 (S25E05 L=234)   623    156        3 (1103/ 477-1200/ 601) -73.3 E06-E03 S29-S19
     15  427  534 (S08E52 L=187)   769    160        0 ( 377/ 469- 456/ 597) -90.0 E55-E50 S12-S03
     16  628  478 (S16E39 L=200)  1527    242        6 ( 564/ 394- 688/ 572)  57.5 E44-E33 S21-S10
     17 1369  385 (S42W05 L=244)  3711    764        6 (1064/ 215-1646/ 569)   7.4 E24-W31 S47-S36
     18  751  431 (S21E33 L=206)   743    189        1 ( 696/ 400- 798/ 471)   6.3 E37-E28 S23-S17
     19  378  369 (S19E72 L=167)  1031     44        2 ( 356/ 341- 401/ 390)  14.0 E83-E67 S21-S17
     20  751  232 (S36E47 L=192)   599     92        1 ( 739/ 187- 768/ 281)  36.0 E54-E42 S39-S31
  

    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