Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  473 1661 (N34E55 L=  2)  1915    487        6 ( 430/1592- 532/1741) -29.1 E65-E47 N29-N39
      2  891 1588 (N35E18 L= 39)   392    108        3 ( 840/1553- 932/1620) -20.6 E22-E14 N33-N36
      3 1352 1578 (N41W18 L= 75)   476     57        1 (1318/1551-1378/1604)   0.0 W14-W19 N38-N43
      4  697 1378 (N18E26 L= 31)  1779    450        6 ( 576/1222- 780/1524) -39.0 E38-E17 N09-N26
      5 1075 1438 (N27E02 L= 55)  1011    228        3 (1004/1335-1158/1518) -39.8 E08-W04 N21-N31
      6 1413 1436 (N31W22 L= 79)   483     95        1 (1384/1395-1445/1483) -51.3 W19-W24 N28-N34
      7 1697 1108 (N14W45 L=102)  2011    592        7 (1632/ 975-1818/1315) -49.6 W39-W57 N04-N26
      8  235 1240 (N04E61 L=356)   415     94        1 ( 223/1196- 245/1291) -71.6 E62-E59 N01-N07
      9 1490 1197 (N17W28 L= 85)   765    302        1 (1396/1142-1537/1269)  41.6 W21-W31 N12-N21
     10 1292 1148 (N11W15 L= 72)   298    114        1 (1237/1105-1342/1192) -29.7 W11-W18 N09-N13
     11 1819 1132 (N16W57 L=113)   436     85        3 (1797/1108-1843/1171) -56.3 W54-W59 N15-N18
     12 1872 1064 (N13W64 L=120)  2324    305        5 (1844/ 960-1913/1163) -71.6 W60-W69 N06-N18
     13 1073 1071 (N04W02 L= 59)   544    164        2 ( 981/1048-1152/1095)  24.0 E02-W07 N01-N06
     14  439  946 (S11E38 L= 19)  1291    455        3 ( 284/ 908- 616/1001)   2.1 E51-E24 S13-S08
     15 1162  852 (S08W10 L= 67)   327    159        0 (1124/ 773-1204/ 931)  79.7 W09-W12 S13-S02
     16  241  777 (S25E56 L=  1)   566    102        3 ( 217/ 745- 262/ 810) -45.0 E58-E53 S26-S22
     17 1713  707 (S11W53 L=110)   651    162        1 (1686/ 668-1758/ 760) -32.0 W49-W58 S13-S07
     18 1569  392 (S33W53 L=110)   410     96        1 (1550/ 367-1586/ 426) -38.7 W50-W55 S35-S30
     19 1411  372 (S37W41 L= 98)   778    117        2 (1350/ 346-1467/ 401)  26.6 W36-W45 S39-S34
  

    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