Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  920 1851 (N47E30 L=196)  1012    190        3 ( 889/1806- 952/1903) -54.0 E34-E25 N42-N53
      2  566 1475 (N13E37 L=189)   418    172        0 ( 507/1420- 605/1553)  77.5 E39-E36 N09-N18
      3 1255 1485 (N25W06 L=232)   792    172        2 (1215/1398-1302/1545)  74.7 W04-W08 N19-N30
      4 1563 1374 (N25W28 L=254)  1154    205        2 (1507/1265-1614/1471) -56.3 W23-W32 N18-N30
      5 1823 1425 (N36W53 L=279)  1250    242        1 (1759/1394-1875/1450)  18.4 W45-W60 N33-N38
      6  601 1066 (S11E26 L=200)  1422    415        5 ( 502/ 888- 683/1257)  75.4 E31-E23 S22-N01
      7 1822 1099 (N14W52 L=278)  1585    387        0 (1782/ 872-1848/1249) -85.0 W50-W55 N00-N24
      8  271 1163 (S09E53 L=173)   310     76        1 ( 247/1139- 296/1186) -26.6 E55-E50 S10-S07
      9 1426 1125 (N06W22 L=248)   307     74        2 (1390/1090-1458/1168) -31.0 W19-W24 N04-N08
     10  212  978 (S20E56 L=169)  1628    350        1 ( 147/ 859- 272/1076)  55.3 E63-E51 S27-S14
     11  283  796 (S31E49 L=176)  1706    470        2 ( 177/ 693- 389/ 916)  35.5 E61-E39 S37-S22
     12 1367  699 (S19W27 L=253)  4122   1166        8 ( 764/ 592-1774/ 774)  22.7 E09-W58 S36-S08
     13  593  529 (S45E23 L=202)   861    168        4 ( 537/ 498- 646/ 569)   4.1 E28-E18 S46-S41
  

    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