Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1602 (N18W62 L=187)   450     22        0 (1613/1577-1651/1623)  11.3 W59-W65 N17-N19
      2 1728 1545 (N12W67 L=192)  1559    165        6 (1674/1483-1784/1612) -90.0 W64-W72 N07-N16
      3 1841 1366 (S01W67 L=193)   484     64        1 (1816/1340-1864/1389)   0.0 W63-W72 S01-N00
      4 1231 1353 (N18W21 L=146)   533    127        0 (1171/1334-1299/1371) -26.6 W17-W25 N15-N20
      5 1046 1274 (N19W08 L=133)   371    135        0 ( 986/1237-1094/1305) -51.3 W04-W10 N15-N21
      6 1865 1135 (S13W60 L=185)  6159    387       14 (1787/1019-1953/1278)  82.4 W50-W78 S19-S04
      7  424 1043 (N22E37 L= 88)  1756    371        2 ( 305/ 904- 537/1175) -56.3 E46-E31 N11-N32
      8 1437  918 (S11W20 L=145)   808    365        0 (1397/ 759-1458/1096)  59.5 W14-W25 S18-S01
      9  685 1053 (N17E19 L=107)   433    170        0 ( 619/1028- 786/1086) -31.0 E22-E12 N12-N19
     10 1811  940 (S22W49 L=174)   347     68        1 (1792/ 919-1839/ 972) -90.0 W46-W52 S23-S19
     11 1554  646 (S31W22 L=147)  3439    551        4 (1426/ 445-1702/ 879)  33.2 W08-W37 S40-S21
     12  941  772 (S05E11 L=114)   227     63        1 ( 904/ 757- 970/ 791) -14.0 E13-E09 S06-S04
     13 1345  776 (S16W11 L=136)   228     63        0 (1313/ 755-1378/ 790) -53.1 W09-W12 S18-S14
     14  765  699 (S05E23 L=102)   415    136        0 ( 751/ 617- 784/ 757)  63.4 E25-E21 S09-S01
     15 1179  633 (S20E02 L=123)   519    217        0 (1130/ 541-1227/ 715)  37.9 E07-W02 S23-S15
     16  597  660 (S03E35 L= 91)   422     75        1 ( 557/ 628- 637/ 694) -68.2 E37-E32 S05-N00
     17  483  665 (S00E42 L= 83)   367    122        1 ( 430/ 643- 535/ 684)  -7.1 E46-E38 S02-N00
     18  943  529 (S19E19 L=106)   923    337        2 ( 911/ 368- 999/ 674)  43.3 E27-E10 S29-S12
     19 1006  392 (S30E21 L=104)   252     60        0 ( 965/ 379-1045/ 402) -31.0 E23-E18 S31-S28
  

    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