Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  513 1656 (N43E52 L= 41)   620     59        0 ( 485/1625- 537/1682) -18.4 E58-E46 N41-N45
      2 1395 1571 (N40W29 L=122)   354     60        1 (1366/1544-1419/1594) -45.0 W27-W31 N37-N41
      3 1665 1447 (N31W51 L=144)   468     94        0 (1626/1415-1698/1481) -51.3 W48-W54 N28-N33
      4 1192 1368 (N25W11 L=103)   294     89        0 (1155/1330-1233/1404)  45.0 W08-W13 N22-N27
      5 1848 1258 (N18W67 L=160)  1270    102        2 (1827/1205-1870/1309)  74.1 W63-W70 N14-N21
      6 1469 1237 (N17W29 L=122)   257     84        0 (1441/1200-1501/1266) -45.0 W27-W31 N14-N18
      7 1813 1199 (N14W60 L=153)   742    109        4 (1779/1161-1844/1243) -63.4 W56-W63 N11-N17
      8 1043  871 (S06W01 L= 94)   353    239        0 ( 983/ 823-1084/ 950)  76.0 E02-W04 S09-S01
      9  880  750 (S14E09 L= 84)  1012    283        1 ( 844/ 648- 917/ 878)  82.4 E11-E06 S21-S06
     10 1748  855 (S07W52 L=145)   482     43        1 (1726/ 832-1773/ 877)  36.9 W50-W54 S08-S05
     11 1190  664 (S19W12 L=105)   223     56        1 (1165/ 639-1215/ 684) -45.0 W09-W13 S20-S17
     12 1448  525 (S29W33 L=126)  1293    236        3 (1409/ 440-1494/ 634) -61.9 W29-W39 S35-S20
     13  595  602 (S25E30 L= 63)   286     60        1 ( 573/ 572- 611/ 632)  63.4 E31-E28 S27-S23
     14  726  599 (S25E20 L= 73)   684    180        3 ( 643/ 575- 816/ 623)   4.8 E25-E13 S26-S23
     15 1666  494 (S31W56 L=149)   521     78        1 (1623/ 483-1706/ 506)   0.0 W50-W62 S32-S30
  

    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