Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1178 1608 (N33W07 L=255)   521    113        1 (1129/1575-1238/1633)  20.6 W03-W11 N30-N35
      2  410 1511 (N23E47 L=200)   837    150        2 ( 391/1449- 435/1592) -63.4 E53-E44 N19-N29
      3 1690 1509 (N31W48 L=296)   405     54        0 (1673/1482-1706/1537)  45.0 W45-W50 N29-N33
      4  187 1401 (N16E69 L=178)  2954    152        5 ( 146/1336- 230/1467) -60.9 E78-E62 N12-N21
      5  582 1299 (N10E29 L=219)   256    142        0 ( 558/1244- 629/1337)  71.6 E30-E26 N06-N12
      6  813 1276 (N09E14 L=234)   226     68        0 ( 783/1250- 852/1294)  36.9 E15-E11 N07-N10
      7  159  927 (S12E64 L=183)  5888    290        6 ( 100/ 781- 234/1041)  53.7 E78-E54 S20-S05
      8 1649  548 (S29W51 L=299)  2570    318        3 (1568/ 431-1763/ 643)  75.1 W45-W59 S36-S21
      9  782  580 (S33E14 L=233)   676    234        0 ( 672/ 530- 882/ 601) -11.3 E22-E07 S35-S31
     10 1473  543 (S31W36 L=283)   499    134        0 (1414/ 515-1533/ 579)  35.5 W31-W39 S32-S27
     11  585  515 (S38E31 L=217)   532    149        2 ( 528/ 473- 658/ 545)  13.0 E37-E24 S41-S36
     12  339  511 (S39E58 L=190)   405     31        1 ( 316/ 492- 367/ 530)   7.1 E61-E53 S40-S37
     13 1717  483 (S32W64 L=311)   442     69        1 (1685/ 461-1745/ 513)  45.0 W60-W66 S33-S29
     14 1636  320 (S43W73 L=320)   697     55        1 (1610/ 298-1662/ 349)  -5.2 W65-W87 S44-S41
     15 1149  307 (S51W18 L=265)  1412    285        2 (1003/ 276-1265/ 332)   0.0 W04-W30 S53-S47
  

    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