Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1430 1795 (N45W64 L=352)  2242    146        3 (1384/1729-1462/1856)  14.5 W55-W86 N40-N47
      2  805 1749 (N60E01 L=287)   621     98        0 ( 781/1706- 832/1793)  45.0 E04-W03 N56-N63
      3 1339 1562 (N33W35 L=322)  2327    381        5 (1215/1491-1531/1640) -45.0 W27-W45 N23-N40
      4 1566 1590 (N29W55 L=342)   349     75        1 (1529/1563-1598/1615) -76.0 W53-W57 N26-N30
      5  423 1444 (N42E41 L=246)  1697    318        5 ( 273/1398- 553/1484)  -8.1 E63-E27 N37-N46
      6 1560 1354 (N15W42 L=329)   241     87        0 (1541/1316-1587/1380)  31.0 W39-W44 N13-N16
      7 1074 1095 (N10W04 L=292)   625    203        1 (1000/1022-1141/1158) -59.0 W00-W07 N04-N15
      8 1858 1032 (S10W60 L=347)   482     55        1 (1844/ 997-1871/1072)  76.0 W58-W62 S12-S08
      9  347  972 (N13E46 L=241)   395    131        2 ( 293/ 937- 388/1008)  -6.3 E51-E42 N10-N15
     10  445  959 (N11E38 L=249)   249     82        0 ( 430/ 914- 457/1001) -90.0 E39-E37 N08-N14
     11 1456  865 (S11W23 L=311)   239    110        0 (1428/ 821-1499/ 895)  36.9 W21-W26 S13-S09
     12 1608  619 (S30W33 L=321)  2216    427        0 (1458/ 521-1738/ 777)  20.6 W20-W45 S35-S22
     13 1288  577 (S25W09 L=296)   234     56        1 (1251/ 563-1321/ 588) -14.0 W06-W10 S26-S24
     14  457  478 (S19E51 L=236)  1368    259        3 ( 389/ 385- 538/ 574) -78.7 E54-E47 S26-S11
     15  898  235 (S44E30 L=257)  2984    411        3 ( 743/ 173-1084/ 310)   8.5 E51-E11 S48-S40
  

    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