Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1594 (N11E62 L= 16)  2292    304        6 ( 335/1490- 430/1677) -72.9 E67-E58 N03-N16
      2  818 1612 (N22E30 L= 47)   350    121        0 ( 775/1564- 854/1647) -20.6 E34-E26 N19-N23
      3 1261 1365 (N19W04 L= 81)   893    272        1 (1233/1235-1285/1485) -60.3 W00-W08 N12-N27
      4 1608 1356 (N30W27 L=104)   284     21        0 (1585/1332-1627/1375) -14.0 W24-W28 N28-N31
      5  231 1325 (S08E64 L= 14)   745    140        3 ( 204/1294- 258/1363)  53.1 E67-E61 S10-S05
      6  753 1267 (S00E22 L= 56)   671    207        0 ( 667/1223- 855/1292)  14.0 E26-E14 S03-N01
      7 1453 1207 (N16W19 L= 97)   474    142        1 (1432/1135-1478/1282) -58.0 W16-W21 N11-N19
      8  176  956 (S31E58 L= 19)  1620    392        3 (  93/ 930- 262/ 981)  12.5 E67-E49 S32-S28
      9 1272  912 (S06W17 L= 94)   432     91        1 (1250/ 860-1292/ 964) -71.6 W14-W18 S08-S02
     10  684  863 (S25E16 L= 62)   628    132        0 ( 629/ 803- 730/ 918)  71.6 E17-E13 S29-S20
     11  441  753 (S38E32 L= 46)  1403    294        3 ( 331/ 718- 561/ 804)  19.3 E41-E21 S42-S33
     12 1831  673 (N00W68 L=146)   965    230        1 (1795/ 652-1884/ 712)  18.4 W62-W77 S01-N03
     13  940  606 (S32W08 L= 86)  1029    230        0 ( 855/ 529-1028/ 704)  75.1 W04-W10 S38-S23
     14 1273  590 (S23W28 L=106)   509    121        1 (1206/ 557-1329/ 637)  63.4 W25-W30 S26-S18
     15 1290  451 (S30W36 L=114)   341     46        1 (1263/ 435-1323/ 470)  63.4 W34-W38 S31-S27
  

    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