Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1407 1668 (N47W33 L=249)   319     37        1 (1384/1645-1429/1683)  11.3 W30-W35 N45-N48
      2 1563 1632 (N44W49 L=264)   820    101        0 (1502/1610-1605/1656)   4.1 W40-W54 N42-N46
      3  884 1548 (N36E13 L=203)   488    100        0 ( 844/1511- 936/1580) -29.7 E15-E08 N33-N38
      4  373 1510 (N30E56 L=159)   406     70        0 ( 335/1496- 409/1523)   7.1 E60-E51 N28-N31
      5  886 1343 (N22E10 L=205)   208     52        1 ( 871/1313- 900/1371) -71.6 E11-E09 N20-N23
      6 1861 1220 (N16W66 L=281)  2764    269        4 (1777/1104-1928/1312) -36.9 W56-W75 N08-N21
      7 1264 1150 (N11W15 L=230)   515    156        0 (1213/1082-1311/1208) -49.4 W11-W17 N07-N14
      8 1457 1086 (N08W27 L=243)   345    122        0 (1433/1046-1494/1149) -63.4 W25-W29 N05-N11
      9 1898 1029 (N04W68 L=284)   708     56        1 (1868/1007-1921/1060)  -6.3 W63-W72 N02-N06
     10 1309  962 (S00W18 L=233)   863    196        3 (1251/ 885-1342/1051)  66.0 W14-W19 S04-N05
     11  820  899 (S06E12 L=203)   208     86        0 ( 791/ 857- 835/ 937) -68.2 E14-E11 S08-S03
     12 1502  685 (S17W33 L=249)  2576    562        5 (1378/ 466-1601/ 910)  74.6 W28-W38 S32-S02
     13 1199  787 (S11W12 L=227)   324     61        2 (1174/ 757-1223/ 820) -56.3 W10-W13 S13-S09
     14  507  622 (S25E35 L=180)   774    112        1 ( 451/ 598- 567/ 651)  -6.3 E39-E30 S26-S23
     15 1041  223 (S55W06 L=222)  1586    187        3 ( 965/ 196-1131/ 252)   3.6 E01-W15 S58-S52
  

    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