Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  851 1798 (N40E33 L=328)   816     96        1 ( 803/1773- 899/1822)  -5.7 E38-E28 N37-N42
      2 1192 1701 (N40E04 L=358)  1060    129        3 (1144/1645-1231/1755) -41.2 E08-W00 N36-N43
      3 1089 1718 (N39E12 L=350)   625    127        0 (1028/1677-1132/1753) -12.5 E16-E07 N35-N40
      4  354 1607 (N19E64 L=297)  1157    150        1 ( 319/1544- 402/1655)  90.0 E67-E61 N14-N22
      5 1437 1611 (N39W17 L= 19)   269     66        0 (1412/1586-1470/1628)  45.0 W14-W19 N36-N41
      6  518 1419 (N08E39 L=322)   357     92        0 ( 481/1382- 547/1457)  59.0 E41-E37 N05-N10
      7 1073 1368 (N14E04 L=358)   533    212        0 ( 969/1342-1169/1381)  10.3 E09-W02 N12-N15
      8 1547 1338 (N23W27 L= 29)   260     58        0 (1522/1316-1576/1365) -26.6 W25-W29 N21-N23
      9  205 1142 (S12E61 L=301)  1716    281        1 ( 123/1029- 272/1229)  39.1 E71-E54 S18-S05
     10  254 1087 (S15E55 L=307)   386     86        0 ( 234/1040- 276/1120)  59.0 E56-E52 S17-S12
     11  318  981 (S20E47 L=315)   468    131        0 ( 302/ 923- 329/1053)  90.0 E48-E46 S23-S15
     12 1708  876 (S01W47 L= 49)   266    100        0 (1689/ 835-1724/ 926) -26.6 W43-W49 S02-N01
     13 1542  869 (S05W34 L= 36)   227     74        0 (1531/ 832-1553/ 908) -78.7 W33-W35 S07-S02
     14  275  770 (S34E53 L=309)   659    121        1 ( 234/ 728- 310/ 828)  35.0 E59-E48 S36-S29
     15 1638  793 (S07W44 L= 45)   322     70        2 (1611/ 761-1671/ 814)  11.3 W41-W46 S08-S05
     16 1705  665 (S12W54 L= 56)   667    131        2 (1672/ 623-1741/ 730) -20.0 W48-W59 S14-S09
     17 1312  618 (S24W27 L= 29)   929    242        1 (1283/ 504-1355/ 725) -63.4 W24-W31 S31-S17
     18 1532  473 (S27W50 L= 52)  1646    282        3 (1435/ 399-1637/ 568)  71.6 W45-W55 S34-S19
     19 1597  390 (S30W63 L= 65)  1134    149        1 (1527/ 348-1660/ 432)  52.1 W58-W67 S34-S25
  

    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