Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  741 1761 (N31E43 L=139)  1819    303        1 ( 670/1658- 840/1818) -86.2 E48-E36 N21-N36
      2 1171 1712 (N39E12 L=171)   657    132        3 (1121/1659-1205/1767) -31.0 E17-E07 N35-N42
      3  361 1510 (N07E58 L=124)   781     96        0 ( 313/1478- 405/1551)  45.0 E62-E55 N03-N09
      4 1725 1398 (N36W39 L=222)   735    218        1 (1681/1294-1759/1489) -54.0 W34-W42 N29-N41
      5  417 1279 (S06E44 L=139)   289     56        1 ( 390/1253- 434/1303)  63.4 E45-E42 S08-S04
      6  246 1109 (S19E56 L=127)   511    100        1 ( 227/1062- 267/1152)  78.7 E57-E53 S21-S16
      7  440 1089 (S17E38 L=145)   324    132        3 ( 401/1061- 498/1125) -12.5 E41-E32 S17-S15
      8 1840 1072 (N19W54 L=236)   617     85        0 (1822/1027-1859/1120)  90.0 W51-W55 N16-N22
      9  355 1009 (S23E44 L=139)   437    102        1 ( 334/ 948- 377/1052) -50.2 E45-E40 S26-S20
     10  462  964 (S24E34 L=149)   489    128        2 ( 434/ 927- 507/1007) -18.4 E36-E30 S25-S21
     11 1699  933 (N07W44 L=226)   448    122        3 (1667/ 890-1728/1003)  90.0 W41-W45 N03-N11
     12  677  928 (S21E18 L=165)   496    177        0 ( 612/ 857- 719/ 985) -29.1 E23-E14 S24-S18
     13  198  862 (S35E61 L=122)   851    140        1 ( 164/ 802- 225/ 926)  41.6 E68-E56 S38-S30
     14  346  796 (S36E43 L=140)   772    213        2 ( 302/ 720- 419/ 890) -59.0 E47-E35 S40-S30
     15 1443  814 (S07W30 L=212)   386     79        1 (1416/ 774-1466/ 850)  90.0 W27-W31 S10-S05
     16 1611  642 (S11W48 L=231)  1240    256        0 (1504/ 582-1717/ 689)  40.2 W42-W55 S17-S06
     17 1317  506 (S28W35 L=217)   577    146        1 (1244/ 484-1377/ 539)  32.0 W29-W37 S30-S24
     18 1509  383 (S28W57 L=240)  1721    255        2 (1385/ 354-1624/ 413)  16.3 W46-W71 S32-S24
     19  612  336 (S64E13 L=170)  1605    219        1 ( 524/ 300- 707/ 381)   6.6 E26-W00 S66-S60
     20 1188  332 (S42W38 L=221)  1482    230        4 (1061/ 299-1272/ 367)  20.6 W28-W45 S45-S38
  

    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