Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  853 1831 (N40E45 L=304)   421     87        2 ( 831/1805- 883/1858) -59.0 E48-E41 N37-N42
      2  615 1788 (N30E59 L=289)   863    109        4 ( 578/1762- 649/1820) -11.3 E68-E53 N27-N31
      3  527 1685 (N20E56 L=292)   421     51        2 ( 505/1656- 552/1705) -26.6 E59-E53 N18-N21
      4 1120 1688 (N37E16 L=332)   300     59        1 (1093/1670-1147/1704)  26.6 E17-E13 N35-N38
      5  320 1179 (S14E50 L=298)  1038    172        2 ( 293/1090- 357/1252) -78.7 E51-E47 S19-S09
      6 1282  717 (S15W24 L= 12)   249     74        0 (1251/ 694-1316/ 741)  63.4 W22-W25 S16-S12
      7  282  602 (S52E55 L=293)  1133    123        3 ( 239/ 558- 316/ 643) -51.3 E62-E49 S55-S49
      8  793  567 (S38E01 L=348)   668    176        2 ( 716/ 520- 860/ 610)  -4.8 E07-W05 S39-S36
      9 1316  595 (S20W31 L= 19)   277    105        0 (1273/ 584-1370/ 609)  18.4 W27-W33 S21-S18
     10  452  531 (S52E31 L=318)   353     95        1 ( 411/ 511- 497/ 552)  20.0 E36-E25 S54-S49
     11 1603  460 (S18W59 L= 47)   660    159        2 (1555/ 402-1632/ 513) -63.4 W54-W61 S22-S14
     12 1419  359 (S30W52 L= 41)   907     88        2 (1383/ 322-1464/ 395)  90.0 W48-W55 S32-S26
     13  627  333 (S63E07 L=341)   417     46        0 ( 607/ 304- 645/ 359) -45.0 E09-E03 S65-S60
     14 1198  279 (S43W44 L= 33)   351     34        1 (1175/ 260-1219/ 296) -56.3 W41-W46 S44-S41
     15 1094  158 (S56W56 L= 45)   708     63        1 (1064/ 136-1119/ 192)  -8.1 W48-W62 S58-S52
  

    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