Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  947 1790 (N39E34 L= 65)   553     71        1 ( 903/1770- 989/1809)   8.1 E37-E29 N37-N40
      2  834 1674 (N27E33 L= 66)   493    173        0 ( 791/1596- 859/1734) -30.3 E39-E27 N22-N30
      3 1129 1549 (N27E10 L= 89)   571    144        0 (1096/1491-1156/1621) -41.2 E14-E06 N24-N31
      4  756 1482 (N13E29 L= 70)   271     77        0 ( 743/1437- 775/1518) -71.6 E30-E27 N09-N15
      5  943 1337 (N09E13 L= 85)   296    109        1 ( 901/1305- 987/1369)  59.0 E15-E11 N06-N11
      6 1444 1339 (N24W16 L=114)   306     52        0 (1410/1319-1470/1360)  26.6 W13-W17 N22-N25
      7 1102 1292 (N11E03 L= 95)   718    275        0 ( 997/1197-1162/1355) -18.4 E10-W02 N07-N12
      8 1649 1086 (N16W36 L=134)   655    144        0 (1595/1034-1707/1139)  -5.2 W30-W41 N14-N17
      9 1003  612 (S29W12 L=110)   913    239        1 ( 892/ 592-1112/ 639)  23.2 W04-W18 S32-S25
     10  507  548 (S50E24 L= 75)   301     32        0 ( 488/ 529- 529/ 570) -14.0 E26-E21 S51-S48
     11 1073  444 (S37W24 L=122)   446     93        0 (1032/ 404-1116/ 482)  81.9 W22-W24 S40-S33
     12 1292  450 (S29W37 L=136)   300    116        0 (1235/ 432-1343/ 466)  39.8 W34-W40 S32-S27
     13 1462  431 (S25W50 L=149)   328     64        1 (1426/ 418-1497/ 455)  31.0 W47-W52 S26-S23
     14 1521  385 (S25W59 L=157)   651    143        0 (1466/ 349-1574/ 446)  90.0 W56-W60 S28-S19
     15 1386  329 (S33W53 L=152)   606     85        1 (1338/ 307-1428/ 348)  12.5 W47-W57 S34-S30
  

    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