Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1052 1810 (N44E22 L=353)   601    101        3 (1012/1784-1096/1840)   8.1 E25-E18 N42-N46
      2 1286 1691 (N41E00 L= 16)   345     35        0 (1264/1668-1307/1710)  63.4 E01-W01 N39-N43
      3 1347 1670 (N42W05 L= 21)   410     63        2 (1317/1635-1379/1699) -11.3 W02-W07 N38-N43
      4  557 1567 (N15E43 L=333)   544    173        1 ( 537/1501- 575/1633) -45.0 E47-E39 N11-N19
      5 1152 1347 (N14W00 L= 16)   878    293        2 (1092/1238-1235/1481) -39.8 E06-W06 N08-N21
      6  570 1443 (N08E37 L=338)   419     96        2 ( 530/1416- 608/1479)  11.3 E39-E34 N06-N09
      7 1726 1212 (N21W40 L= 56)   286     97        0 (1709/1172-1736/1266)  90.0 W39-W41 N18-N25
      8 1892 1121 (N22W58 L= 74)  1303    260        1 (1847/ 990-1935/1200) -47.7 W52-W65 N14-N25
      9  237 1077 (S19E55 L=321)   783    200        0 ( 208/ 979- 252/1155) -59.0 E59-E52 S24-S14
     10 1353  964 (S03W20 L= 36)  1484    409        2 (1237/ 795-1440/1141)  82.2 W16-W23 S14-N08
     11  699 1053 (S12E20 L=356)   711    169        0 ( 629/ 969- 757/1132)  67.4 E22-E17 S18-S06
     12 1003  748 (S23W05 L= 21)   805    199        3 ( 918/ 722-1116/ 783)  20.0 W00-W11 S25-S20
     13 1551  754 (S09W38 L= 54)   284     78        2 (1506/ 725-1584/ 782)  45.0 W36-W40 S11-S07
     14 1768  651 (S08W61 L= 76)  1600    204        1 (1694/ 582-1831/ 726)  57.5 W55-W64 S13-S02
  

    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