Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  719 1828 (N35E52 L=299)   456     46        1 ( 701/1802- 743/1855) -45.0 E55-E49 N32-N37
      2  593 1745 (N26E54 L=297)   999    155        3 ( 549/1682- 622/1789) -45.0 E62-E49 N20-N29
      3 1194 1665 (N36E09 L=343)  1751    291        4 (1100/1546-1279/1745) -25.2 E17-W00 N30-N41
      4  812 1587 (N20E29 L=323)   506    150        0 ( 754/1542- 882/1610)  54.5 E30-E25 N15-N23
      5  632 1453 (N08E35 L=317)   383    106        0 ( 615/1399- 653/1501) -50.2 E36-E31 N04-N10
      6  478 1436 (N04E45 L=307)   589    156        0 ( 453/1376- 504/1499) -60.3 E46-E41 N00-N07
      7 1598 1387 (N31W27 L= 18)  1356    217        1 (1508/1307-1664/1448)  -8.7 W19-W32 N26-N33
      8  904 1411 (N11E17 L=335)   201     57        1 ( 876/1378- 921/1432) -33.7 E18-E15 N09-N13
      9 1276 1263 (N13W08 L=360)   621    166        0 (1245/1181-1321/1325)  90.0 W06-W09 N07-N17
     10 1476 1166 (N13W22 L= 14)   655    269        0 (1409/1059-1550/1275) -34.7 W15-W29 N08-N17
     11  326 1207 (S13E50 L=302)   395    101        1 ( 285/1185- 384/1230)  18.4 E53-E44 S14-S11
     12  186 1076 (S22E63 L=289)  1169    177        2 ( 137/1003- 247/1124)  39.3 E70-E55 S27-S18
     13  382 1032 (S22E41 L=310)   345    106        0 ( 361/ 988- 414/1081) -38.7 E43-E38 S23-S18
     14  502 1020 (S20E32 L=320)   222     71        0 ( 470/1003- 539/1044)  45.0 E34-E29 S21-S17
     15  344  955 (S27E44 L=308)   270     73        1 ( 308/ 933- 381/ 969)  15.9 E47-E40 S28-S25
     16  462  772 (S36E31 L=320)   544    129        1 ( 404/ 738- 527/ 800)  26.6 E36-E26 S38-S32
     17 1612  612 (S12W50 L= 41)   341     96        0 (1567/ 596-1649/ 639)  45.0 W46-W52 S14-S09
     18 1585  482 (S20W55 L= 47)  2238    543        2 (1408/ 343-1736/ 628)  74.4 W51-W62 S32-S07
     19 1231  549 (S28W27 L= 19)   928    207        1 (1147/ 506-1324/ 613)  61.4 W23-W30 S32-S21
     20  440  531 (S53E34 L=318)   322     36        1 ( 417/ 510- 460/ 555)  33.7 E37-E31 S54-S50
     21 1758  501 (S12W73 L= 65)  1538     99        4 (1719/ 457-1791/ 549) -71.6 W67-W80 S15-S09
     22 1054  378 (S44W26 L= 18)   393     71        0 (1011/ 361-1092/ 394)  18.4 W22-W28 S45-S41
  

    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