Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1292 1807 (N53W16 L=261)   631     71        1 (1265/1772-1321/1838)  74.1 W12-W19 N49-N56
      2  572 1677 (N34E42 L=203)   855    105        1 ( 548/1614- 592/1728) -56.3 E45-E38 N29-N38
      3 1502 1480 (N28W29 L=275)   481    120        0 (1455/1444-1548/1504)  15.9 W25-W32 N25-N30
      4  259 1418 (N15E61 L=184)   401     68        1 ( 234/1387- 286/1439) -26.6 E64-E56 N12-N16
      5 1746 1178 (N12W47 L=293)   525     52        1 (1713/1146-1772/1206) -21.8 W44-W50 N09-N13
      6 1706 1049 (N03W44 L=290)   274     34        0 (1692/1018-1723/1070)  71.6 W43-W45 N01-N04
      7  133  799 (S23E74 L=172)   853    112        0 ( 104/ 744- 153/ 854) -66.8 E78-E71 S26-S19
      8 1716  636 (S20W55 L=301)   504     71        0 (1696/ 599-1741/ 663)  76.0 W53-W57 S22-S18
      9 1367  637 (S25W27 L=272)   288     55        1 (1346/ 602-1390/ 661)  63.4 W25-W28 S27-S23
     10 1247  550 (S32W21 L=266)   219     59        1 (1224/ 530-1268/ 581)  63.4 W19-W21 S33-S29
     11 1549  358 (S41W57 L=303)  1147     93        1 (1512/ 312-1573/ 412) -28.3 W52-W65 S43-S36
     12  620  316 (S56E35 L=211)   388     47        0 ( 600/ 291- 636/ 347)  59.0 E38-E31 S58-S53
     13  557  304 (S58E45 L=200)   853     59        1 ( 531/ 272- 587/ 339)  20.6 E54-E38 S60-S54
  

    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