Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  935 1640 (N32E15 L= 49)   260     66        1 ( 902/1619- 970/1657)  -9.5 E17-E11 N30-N32
      2  293 1471 (N15E59 L=  4)  7769    366       21 ( 184/1332- 403/1589)  47.0 E79-E49 N05-N23
      3 1857 1370 (N29W62 L=126)  1181    161        1 (1809/1314-1898/1445) -45.0 W57-W67 N25-N33
      4  168 1409 (N11E75 L=349)   833     64        3 ( 144/1382- 191/1440)  36.9 E80-E71 N09-N12
      5 1678 1160 (N11W40 L=104)   684    191        1 (1649/1072-1720/1251)  71.6 W38-W43 N05-N17
      6  390 1238 (N01E43 L= 20)   301     86        0 ( 353/1221- 435/1250)   0.0 E46-E39 N00-N01
      7 1829 1140 (N13W54 L=118)  1158    151        3 (1789/1069-1863/1211) -45.0 W50-W58 N09-N16
      8  631 1089 (S06E24 L= 39)   318    165        0 ( 602/1008- 651/1155)  83.7 E25-E23 S11-S02
      9  161 1060 (S11E64 L=360)  2423    210       11 (  92/ 991- 217/1117)  30.3 E75-E57 S14-S07
     10  359  997 (S14E44 L= 20)   555    166        3 ( 315/ 947- 400/1031) -23.2 E47-E39 S16-S11
     11 1356  913 (S08W21 L= 85)   335    177        0 (1322/ 831-1379/ 991)  84.3 W20-W22 S13-S03
     12  718  937 (S14E18 L= 46)   251    101        0 ( 681/ 888- 740/ 981) -45.0 E20-E15 S16-S11
     13  201  877 (S21E60 L=  4)  2298    330        6 (  80/ 838- 357/ 923)   5.4 E85-E43 S23-S18
     14  420  757 (S28E39 L= 25)  1540    351        4 ( 312/ 646- 519/ 884)  37.3 E52-E30 S35-S19
     15 1877  825 (S04W65 L=129)   894    108        0 (1849/ 768-1897/ 869) -50.2 W60-W69 S07-S01
     16 1324  732 (S19W23 L= 86)   749    313        1 (1221/ 678-1421/ 806)  26.6 W15-W27 S22-S13
     17 1809  582 (S19W69 L=133)  1200    145        6 (1767/ 528-1840/ 619) -80.5 W64-W76 S22-S16
     18  955  451 (S42W04 L= 67)  2587    483       14 ( 733/ 409-1186/ 497)  10.0 E14-W20 S45-S37
     19 1667  408 (S32W66 L=130)   652     88        1 (1633/ 362-1699/ 448) -45.0 W61-W70 S35-S29
  

    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