Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1235 1554 (N29W21 L=355)   438    113        0 (1192/1514-1292/1579)  14.0 W17-W25 N26-N30
      2  807 1525 (N33E08 L=325)   241     41        0 ( 778/1512- 837/1539)   0.0 E10-E06 N31-N33
      3 1823 1297 (N07W60 L= 33)   430     37        0 (1803/1271-1837/1322)  76.0 W58-W62 N04-N08
      4 1349 1292 (N11W23 L=356)   380     61        0 (1313/1269-1388/1319) -21.8 W20-W25 N09-N13
      5  808 1280 (N17E10 L=323)   298     37        0 ( 779/1259- 841/1298) -18.4 E11-E08 N15-N18
      6 1847 1110 (S05W58 L= 32)  2464    285        5 (1742/1000-1908/1218) -45.0 W49-W65 S11-N02
      7  205  978 (N06E58 L=276)  2165    287        4 ( 102/ 927- 330/1025)  -4.2 E72-E45 N02-N09
      8 1717 1011 (S09W45 L= 18)   264     44        1 (1688/ 998-1744/1025)  11.3 W42-W47 S09-S08
      9 1586  941 (S12W34 L=  8)   527    146        2 (1563/ 879-1624/1000)  81.9 W32-W37 S15-S08
     10 1888  843 (S21W64 L= 37)  3777    240        5 (1826/ 736-1930/ 953)  81.3 W57-W70 S27-S14
     11 1331  925 (S10W17 L=350)   217     66        0 (1305/ 893-1359/ 950) -45.0 W15-W18 S11-S08
     12 1184  640 (S25W06 L=339)  3467    986        4 ( 748/ 516-1578/ 835)   8.0 E24-W33 S30-S17
     13  564  556 (S23E37 L=296)  1796    348        6 ( 487/ 471- 614/ 696)  40.9 E46-E31 S28-S14
     14  295  656 (S14E56 L=277)   455     80        2 ( 261/ 629- 340/ 686)   0.0 E60-E51 S15-S12
     15 1810  659 (S32W58 L= 32)   374     37        2 (1785/ 640-1829/ 677) -15.9 W55-W62 S33-S30
     16 1627  515 (S40W42 L= 15)   567     79        1 (1588/ 492-1654/ 549)   9.5 W37-W45 S41-S37
     17 1393  438 (S42W20 L=354)   309     47        1 (1363/ 417-1418/ 462) -26.6 W17-W23 S44-S40
     18 1305  417 (S43W13 L=346)   245     33        0 (1283/ 399-1328/ 436) -33.7 W11-W14 S44-S40
     19  583  345 (S37E47 L=286)  1173    188        3 ( 516/ 280- 634/ 427)  22.2 E60-E38 S41-S32
     20  789  220 (S51E39 L=295)  1153    130        2 ( 738/ 197- 855/ 256)   3.6 E46-E30 S52-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