Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  499 1696 (N49E57 L=176)  1000     88        1 ( 472/1657- 526/1736) -18.4 E69-E48 N45-N52
      2  426 1688 (N48E69 L=164)   723     79        0 ( 406/1648- 455/1717) -50.2 E73-E62 N44-N50
      3  827 1654 (N46E17 L=216)   274     43        2 ( 800/1633- 851/1674) -21.8 E19-E14 N44-N47
      4  926 1538 (N37E07 L=226)   441     83        1 ( 885/1509- 973/1562) -15.9 E10-E03 N35-N38
      5 1073 1438 (N30W04 L=237)   358    108        1 (1025/1416-1121/1457) -15.9 W00-W07 N28-N31
      6  181 1180 (N12E67 L=166)   852     95        3 ( 153/1131- 201/1231) -63.4 E70-E63 N09-N15
      7  467 1136 (N11E37 L=196)   236     64        2 ( 442/1107- 488/1168)  76.0 E38-E35 N08-N12
      8 1800 1121 (N07W57 L=290)   633     99        0 (1764/1097-1842/1148)  -6.3 W53-W62 N05-N08
      9  352 1075 (N07E46 L=187)   338    103        0 ( 313/1061- 402/1100)  -7.1 E49-E41 N05-N08
     10 1853  984 (S02W62 L=295)   593     64        0 (1812/ 969-1881/1007)  -6.3 W57-W66 S02-N00
     11  304  880 (S06E51 L=182)  1722    321        5 ( 215/ 779- 406/1003) -35.2 E59-E42 S11-N01
     12  244  670 (S20E63 L=170)  6162    456       13 ( 142/ 541- 327/ 837) -75.3 E78-E54 S28-S08
     13  741  739 (S14E18 L=214)   427    159        1 ( 674/ 701- 785/ 794)  32.0 E23-E15 S16-S10
     14 1075  633 (S21W03 L=236)   718    268        2 ( 964/ 548-1125/ 705)  51.3 E04-W06 S26-S16
     15  393  618 (S22E48 L=185)   984    173        1 ( 365/ 539- 430/ 691)  51.3 E52-E42 S27-S17
     16  865  579 (S24E11 L=221)   720    159        0 ( 824/ 514- 922/ 631)  48.8 E14-E07 S28-S20
     17  464  447 (S35E48 L=185)   419     63        0 ( 436/ 428- 499/ 466)  12.5 E52-E43 S36-S33
     18  736  353 (S42E26 L=207)  1939    233        4 ( 644/ 311- 834/ 404)  14.0 E35-E15 S45-S37
     19  704  212 (S57E41 L=192)   784     58        1 ( 680/ 189- 729/ 241)  68.2 E46-E35 S59-S53
     20 1181  176 (S62W18 L=251)   569     53        0 (1161/ 154-1205/ 203) -31.0 W14-W24 S65-S58
  

    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