Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  941 1723 (N33E25 L=310)   976    218        3 ( 846/1658-1016/1776) -13.2 E34-E17 N29-N35
      2 1146 1529 (N25E05 L=330)   244     81        0 (1130/1488-1160/1570) -51.3 E07-E03 N22-N27
      3  992 1482 (N18E13 L=323)   249     72        0 ( 956/1471-1039/1497)   9.5 E15-E09 N16-N18
      4  181 1402 (S01E74 L=262)   651     41        1 ( 163/1384- 204/1425)   0.0 E78-E69 S01-N01
      5 1720 1292 (N27W39 L= 14)   493    124        0 (1695/1232-1759/1328)  66.8 W36-W42 N22-N29
      6 1343 1233 (N12W13 L=349)   238     47        1 (1319/1210-1361/1258)  71.6 W11-W14 N10-N13
      7 1150 1157 (N03W04 L=339)   569    243        0 (1026/1131-1257/1189)  32.5 E02-W09 N00-N07
      8  446 1129 (S13E38 L=298)   257     58        0 ( 431/1089- 459/1157)  90.0 E39-E36 S15-S11
      9 1925  936 (N13W67 L= 43)  1085    110        4 (1910/ 875-1939/ 995) -66.8 W64-W70 N09-N16
     10  360  955 (S25E42 L=293)   426     60        2 ( 324/ 926- 393/ 981)  -9.5 E45-E39 S26-S23
     11 1663  844 (S01W43 L= 19)   517    112        1 (1611/ 828-1726/ 866)   6.3 W39-W48 S02-N00
     12  250  668 (S45E58 L=278)  1336    189        1 ( 184/ 624- 332/ 716)  -9.0 E70-E46 S46-S42
     13 1596  657 (S12W45 L= 21)   271     51        0 (1568/ 632-1621/ 677)  56.3 W44-W47 S14-S10
     14 1308  573 (S25W30 L=  5)   576    124        1 (1260/ 553-1366/ 605)   0.0 W25-W34 S26-S23
     15 1499  418 (S28W52 L= 27)  1861    351        5 (1377/ 364-1681/ 487)  43.3 W45-W63 S34-S18
  

    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