Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  472 1670 (N18E59 L=170)  1218    131        3 ( 411/1629- 524/1706)  60.3 E63-E55 N14-N21
      2  628 1578 (N16E41 L=188)   291     85        0 ( 597/1547- 651/1604) -18.4 E44-E38 N14-N17
      3  564 1441 (N06E40 L=190)   464     78        0 ( 523/1423- 606/1457)  31.0 E42-E36 N04-N08
      4  449 1233 (S08E41 L=189)   942    274        0 ( 415/1104- 476/1355) -60.3 E46-E37 S15-S01
      5 1175 1313 (N15W00 L=230)   244     91        1 (1139/1270-1196/1355)  90.0 W00-W01 N11-N17
      6 1486 1280 (N22W20 L=249)   361     53        1 (1471/1251-1511/1317) -63.4 W18-W22 N20-N24
      7  328 1087 (S19E46 L=183)   728    220        0 ( 256/1057- 407/1124)  22.6 E52-E40 S21-S15
      8  738 1046 (S12E17 L=212)   242     93        0 ( 688/1026- 780/1058)  31.0 E19-E13 S14-S10
      9  813  755 (S26E05 L=224)   304     97        0 ( 797/ 705- 840/ 803) -59.0 E06-E01 S28-S23
     10  247  772 (S41E51 L=179)   605    131        1 ( 210/ 756- 292/ 801)   6.3 E54-E45 S41-S38
     11  921  601 (S32W07 L=236)  1156    293        1 ( 779/ 531-1060/ 707)  -2.5 E05-W18 S34-S29
     12 1133  595 (S26W20 L=249)   343     87        1 (1103/ 569-1176/ 638)  -8.1 W16-W23 S27-S24
     13 1534  595 (S14W45 L=274)   629     97        0 (1486/ 562-1584/ 621)  45.0 W42-W47 S16-S11
     14 1426  330 (S31W53 L=282)   379     64        0 (1395/ 314-1457/ 343)  45.0 W50-W54 S32-S29
     15 1030  258 (S51W34 L=263)  1259    228        1 (1004/ 193-1062/ 337) -33.7 W27-W42 S55-S45
     16 1342  286 (S37W51 L=280)   727    106        1 (1316/ 254-1374/ 325) -38.7 W46-W53 S39-S35
     17 1077  255 (S49W37 L=266)   437     97        1 (1058/ 226-1102/ 294) -26.6 W33-W41 S51-S46
     18 1182  256 (S45W43 L=273)   640     91        0 (1160/ 224-1205/ 293) -20.6 W39-W47 S46-S42
     19 1107  184 (S53W47 L=276)   653    101       -1 (1062/ 165-1142/ 204)  14.0 W42-W50 S54-S51
  

    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